home *** CD-ROM | disk | FTP | other *** search
/ Chip: Hang es video / CHIP_ZENESZERKESZTO_2005.ISO / audio_3 / visual / robotfunk / setup.exe / {app} / main.dxr / ui_95.ls < prev    next >
Encoding:
Text File  |  2003-11-19  |  1008 b   |  47 lines
  1. property spriteNum, mychan, myrole, myfirst, mylast, mdown
  2.  
  3. on beginSprite me
  4.   mdown = 0
  5.   if (spriteNum / 2) = (spriteNum / 2.0) then
  6.     myrole = 2
  7.   else
  8.     myrole = 1
  9.   end if
  10.   leliste = [1, 7, 13, 19, 25]
  11.   repeat with i = 1 to 5
  12.     if myrole = 1 then
  13.       if getPos(leliste + i + 181, spriteNum) <> 0 then
  14.         mychan = getPos(leliste + i + 181, spriteNum)
  15.       end if
  16.       next repeat
  17.     end if
  18.     if getPos(leliste + i + 182, spriteNum) <> 0 then
  19.       mychan = getPos(leliste + i + 182, spriteNum)
  20.     end if
  21.   end repeat
  22.   if myrole = 1 then
  23.   else
  24.   end if
  25. end
  26.  
  27. on mouseDown me
  28.   mdown = 1
  29. end
  30.  
  31. on mouseUpOutSide me
  32.   mdown = 0
  33. end
  34.  
  35. on mouseUp me
  36.   if mdown then
  37.     sprite(218 + mychan).visible = myrole = 2
  38.     if myrole = 1 then
  39.       sprite(spriteNum).member = member("controller_on")
  40.       sprite(spriteNum + 1).member = member("fxoff")
  41.     else
  42.       sprite(spriteNum - 1).member = member("controller_off")
  43.       sprite(spriteNum).member = member("fxon")
  44.     end if
  45.   end if
  46. end
  47.